home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TUNEIN01.DIR / 00337_Script_337 < prev    next >
Text File  |  1995-06-01  |  1KB  |  29 lines
  1. on playSearchShow 
  2.   global initMasterList, searchShow, gPlaylistMasterList, x, y, autoPlayMode, rolledShow, gMainMovie, completeShow
  3.   global lastCredits, thisLine, thisTopic, thisTopicItem, thisItemType, thisIndex, gPlaylistSearchList, theMovieName, gMovieCount
  4.   cursor 4
  5.   setAt (the searchpath, 1, "HAIGHT:MAIN:TURNON:")
  6.   put the pathname & the moviename into gMainMovie
  7.   set gPlaylistMasterList = []
  8.   set AutoPlayMode = "ON"
  9.   set rolledShow = false
  10.   set searchShow = true
  11.   set completeShow = false
  12.   -- generate a playlist from the TURN ON movies in the search index field for the current topic/line
  13.   put (the number of words in line thisLine of field thisIndex - 1) into x
  14.   put (the number of words in line thisLine of field thisIndex) into y
  15.   set gPlaylistSearchList = []
  16.   repeat with i = 2 to y
  17.     append gPlaylistSearchList, word i of line thisLine of field thisIndex
  18.   end repeat
  19.   -- get each line from the playlist display, match it to the corresponding filename,
  20.   -- then put the filenamd into gplaylistMasterList
  21.   repeat with i = 1 to x   
  22.     put getAt(gPlaylistSearchList,i) into theMovieName
  23.     setAt gPlaylistMasterList, i,theMovieName
  24.   end repeat
  25.   put 1 into gMovieCount
  26.   put getAt (gPlaylistMasterList, 1) into nextMovie
  27.   go to movie "@/TURNON/" &  nextmovie
  28. end playSearchShow
  29.